;; dijkstra
;; http://www.dgp.toronto.edu/people/JamesStewart/270/9798s/Laffra/DijkstraApplet.html

(use 'clojure.contrib.graph)

(let [mygraph
   (struct directed-graph
             #{:a :b :c :d :e :f :g :h :i :j}
             {:a {:b 4 :d 1}
              :b {:a 74 :c 2 :e 12}
              :c {:b 12 :f 74 :j 12}
              :d {:e 32 :g 22}
              :e {:d 66 :f 76 :h 33}
              :f {:j 21 :i 11}
              :g {:d 12 :h 10}
              :h {:g 2 :i 72}
              :i {:f 31 :h 18 :j 7}
              :j {:f 8}})]
              
    (prn (get-neighbors mygraph :c)))
   
              
    
              
     
